1 REM *** DOWNSHIFT 64 ***
2 A=53000:PRINTCHR$(147)
3 FORJ=ATOA+67:READB:POKEJ,B:X=X+B:NEXTJ
4 IFX<>9903THENPRINT"ERROR IN DATA...":END
5 C=INT(A/256):D=(A-(C*256))+13:POKEA+1,D:POKEA+3,C
6 PRINT"DATA OK * SYS"A"TO ACTIVATE...":END
7 DATA169,21,162,207,120,141,20,3,142,21,3,88
8 DATA96,165,203,160,0,201,4,208,8,232,208,253
9 DATA200,192,64,144,248,201,5,208,8,232,208,253
10 DATA200,192,128,144,248,201,6,208,8,232,208,253
11 DATA200,192,192,144,248,201,3,208,8,32,159,255
12 DATA165,203,184,80,244,76,49,234